	IF	I696
	DB	' -- IEEE 696 Host Adapter.'
	ENDIF
	IF	I796
	DB	' -- IEEE 796 Host Adapter.'
	ENDIF
	DB	CR,LF,MSIZE/10+'0',MSIZE mod 10 +'0'
	DB	'K CP/M ',VERS/10+'0','.',VERS mod 10 +'0'
	DB	CBIOSV+'@',0
;
;
	ORG	URINIT
;
;
;	CP/M disk work space.

ALV:
	IF	LUN0
	DS	LUN0NLD*(((((LUN0SEC/HSTSPT-2)*CPMSPT/HSTSIB)-1)+7)/8)
	ENDIF
	IF	LUN1
	DS	LUN1NLD*(((((LUN1SEC/HSTSPT-2)*CPMSPT/HSTSIB)-1)+7)/8)
	ENDIF
	IF	LUN2
	DS	LUN2NLD*(((((LUN2SEC/HSTSPT-2)*CPMSPT/HSTSIB)-1)+7)/8)
	ENDIF
	IF	LUN3
	DS	LUN3NLD*(((((LUN3SEC/HSTSPT-2)*CPMSPT/HSTSIB)-1)+7)/8)
	ENDIF
CSV:	DS	(NOFDD+NOMINI)*32
;	Disk access information.
;	This area is organized into the following groups
;		disk drive
;		track number
;		sector number
;		drive type
;	Each of these groups has four cells for the
;	current disk request, ACTual disk transfer,
;	and active host disk.

SEKDSK:	DS	1		;Current request
SEKTYP:	DS	1		;Current disk's type
SEKTRK:	DS	2		;Current request
SEKSEC:	DS	1		;Current request

ACTDSK:	DS	1		;Actual transfer operation
ACTTYP:	DS	1		;Actual disk's type
ACTTRK:	DS	2		;Actual transfer operation
ACTSEC:	DS	1		;Actual transfer operation

HSTDSK:	DS	1		;Active host disk
HSTTYP:	DS	1		;Active disk's type
HSTTRK:	DS	2		;Active host disk
HSTSEC:	DS	1		;Active host disk
;
;
;
;
;	Disk transfer flags and counters.

RDFLAG:	DS	1		;Read flag
ERFLAG:	DS	1		;Error reporting
WRTYPE:	DS	1		;Write operation type

SAVSEC:	DS	1		;Save sector
NUMSEC:	DS	1		;Number of sectors

CIOPL:	EQU	9
CIOPB:	DS	CIOPL		;Disk command buffer
TEMPBF:	DS	8		;Result status cells
ESPACE:


	ORG	MSIZE*K-HSTSIZ-128

DIRBUF:	DS	128		;Directory buffer
HSTBUF:	DS	HSTSIZ		;Host buffer


	END
